home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PASCSRC.ZIP / SHAPES4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  1.6 KB  |  53 lines
  1.                                       (* Chapter 13 - Program 4 *)
  2. program Calculate_Area_Of_Shapes;
  3.  
  4. uses Areas,Crt,Turbo3;
  5.  
  6. var In_Char : char;
  7.     Length,Width,Height,Base,Radius : real;
  8.  
  9. begin  (* main program *)
  10.    repeat
  11.       Writeln;
  12.       Writeln('Please input the first letter of the selection');
  13.       Writeln('Select shape; Square Rectangle Triangle Circle Quit');
  14.       Write('Requested shape is ');
  15.       Repeat until Keypressed;
  16.       Read(Kbd,In_Char);
  17.       case UpCase(In_Char) of
  18.        'S' : begin
  19.              Write('Square   Enter length of side ');
  20.              Readln(Length);
  21.              Writeln('The area is ',Area_Of_Square(Length):12:4);
  22.              end;
  23.  
  24.        'R' : begin
  25.              Write('Rectangle   Enter width ');
  26.              Readln(Width);
  27.              Write('Enter height ');
  28.              Read(Height);
  29.              Writeln('    The area is ',
  30.                             Area_Of_Rectangle(Width,Height):12:4);
  31.              end;
  32.  
  33.        'T' : begin
  34.              Write('Triangle     Enter base ');
  35.              Readln(Base);
  36.              Write('Enter height ');
  37.              Read(Height);
  38.              Writeln('    The area is ',
  39.                             Area_Of_Triangle(Base,Height):12:3);
  40.              end;
  41.  
  42.        'C' : begin
  43.              Write('Circle    Enter radius ');
  44.              Readln(Radius);
  45.              Writeln('The area is ',Area_Of_Circle(Radius):12:3);
  46.              end;
  47.  
  48.        'Q' : Writeln('Quit');
  49.        else Writeln(' undefined entry');
  50.       end;
  51.    until (In_Char = 'Q') or (In_Char = 'q');
  52. end.  (* of main program *)
  53.